home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / cterm.lha / curcon.mk < prev    next >
Text File  |  1993-08-13  |  1KB  |  37 lines
  1. #! /local/bin/perl
  2.  
  3. open(STDIN,'curcon.in')  || die "can't open curcon\n" ;
  4. open(STDOUT,'>curcon.c') || die "can't create curcon.c\n" ;
  5.  
  6. print "#include <curses.h>\n" ;
  7. print "#include <stdio.h>\n" ;
  8. print "\n" ;
  9. print "main() {\n" ;
  10.  
  11. while ( $_ = <STDIN> )
  12.   { chop ;
  13.     next if $_ =~ /^[ \t]*$/ || $_ =~ /^#/ ;
  14.     $arg = ( /^(.*)\(.*\)/ ) ? $1 : $_ ;
  15.     print "#ifdef $arg\n" ;
  16.     print "  printf(\"\$curcon{'$_'} = %d ;\\n\",$_) ;\n" ;
  17.     if ( $_ =~ /^KEY/ )
  18.       { print "  printf(\"\$curkey{%d} = '$_' ;\\n\",$_) ;\n" ; }
  19.     print "#else\n" ;
  20.     print "  fprintf(stderr,\"warning: no definition for $_\\n\") ;\n" ;
  21.     print "#endif\n" ;
  22.   }
  23. for ( 'EDIT_LEFT', 'EDIT_RIGHT' )
  24.   { print "#ifdef $_\n" ;
  25.     print "  printf(\"\$curcon{'$_'} = %d ;\\n\",$_) ;\n" ;
  26.     print "#else\n" ;
  27.     print "  fprintf(stderr,\"warning: no definition for $_\\n\") ;\n" ;
  28.     print "#endif\n" ;
  29.   }
  30.  
  31. print "  printf(\"\$curcon{'KEY_RET'} = %d ;\\n\",13) ;\n" ;
  32. print "  printf(\"\$curkey{13} = 'KEY_RET' ;\\n\") ;\n" ;
  33. print "  printf(\"\$curcon{'KEY_TAB'} = %d ;\\n\",9) ;\n" ;
  34. print "  printf(\"\$curkey{9} = 'KEY_TAB' ;\\n\") ;\n" ;
  35. print "  exit(0) ;\n" ;
  36. print "}\n" ;
  37.